home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / KONSTR21.ZIP / konstr / euler.zul < prev    next >
Encoding:
Text File  |  1996-03-10  |  2.0 KB  |  42 lines

  1. window(-1,1,-1,1);
  2. /*
  3. Die Eulersche Gerade.
  4.  
  5.  
  6. Diese Figur zeigt, wie der Umkreimittelpunkt U (Schnittpunkt der
  7. Mittelsenkrechten), der Schwerpunkt S (Schnittpunkt der Seitenahlbierenden)
  8. und der Höhenschnittpunkt immer auf einer Geraden liegen.
  9.  
  10.  
  11. Bewegen Sie die Ecken des Dreiecks, um die Figur zu beobachten.
  12. */
  13. Punkt_23()=point(0.179221,0.428571);
  14. Punkt_24()=point(-0.678846,-0.319525);
  15. Punkt_25()=point(0.384164,-0.331378);
  16. Strecke_4()=segment(Punkt_24,Punkt_23);
  17. Strecke_5()=segment(Punkt_23,Punkt_25);
  18. Strecke_6()=segment(Punkt_25,Punkt_24);
  19. Kreis_9(hidden,color:blue)=circle(Punkt_24,Punkt_25);
  20. Kreis_10(hidden,color:blue)=circle(Punkt_25,Punkt_24);
  21. Schnitt_12(hidden,color:blue),Schnitt_13(hidden,color:blue)=intersection(Kreis_9,Kreis_10);
  22. Gerade_16(hidden,color:blue)=line(Schnitt_13,Schnitt_12);
  23. Kreis_11(hidden,color:blue)=circle(Punkt_24,Punkt_23);
  24. Kreis_12(hidden,color:blue)=circle(Punkt_23,Punkt_24);
  25. Schnitt_14(hidden,color:blue),Schnitt_15(hidden,color:blue)=intersection(Kreis_12,Kreis_11);
  26. Gerade_17(hidden,color:blue)=line(Schnitt_15,Schnitt_14);
  27. U(color:blue,showname,symbol:circle)=intersection(Gerade_16,Gerade_17);
  28. Kreis_13(color:blue)=circle(U,Punkt_24);
  29. Punkt_31(hidden,color:pink),Gerade_18(hidden,color:pink)=rectangular(Punkt_23,Strecke_6);
  30. Punkt_32(hidden,color:pink),Gerade_19(hidden,color:pink)=rectangular(Punkt_24,Strecke_5);
  31. H(color:pink,showname,symbol:circle)=intersection(Gerade_18,Gerade_19);
  32. Schnitt_18(hidden,color:pink)=intersection(Strecke_6,Gerade_18);
  33. Strecke_7(color:pink)=segment(Punkt_23,Schnitt_18);
  34. Schnitt_19(hidden,color:pink)=intersection(Gerade_19,Strecke_5);
  35. Strecke_8(color:pink)=segment(Punkt_24,Schnitt_19);
  36. Schnitt_20(hidden,color:green)=intersection(Strecke_6,Gerade_16);
  37. Strecke_9(color:green)=segment(Punkt_23,Schnitt_20);
  38. Schnitt_21(hidden,color:green)=intersection(Strecke_4,Gerade_17);
  39. Strecke_10(color:green)=segment(Punkt_25,Schnitt_21);
  40. S(color:green,showname,symbol:circle)=intersection(Strecke_9,Strecke_10);
  41. Strecke_11()=segment(H,U);
  42.